home *** CD-ROM | disk | FTP | other *** search
/ Colson Caster Selection Guide 3 / Colson Caster Selection Guide 3.0.iso / colsoncd.dxr / 00001Series_42_FloorProtection.ls < prev    next >
Encoding:
Text File  |  2000-01-11  |  2.7 KB  |  45 lines
  1. on mouseUp
  2.   if the hilite of cast "floorprotection" = 1 then
  3.     set the visible of sprite 54 to 0
  4.     set the visible of sprite 55 to 0
  5.     set the visible of sprite 52 to 0
  6.     set the visible of sprite 53 to 0
  7.     set the visible of sprite 60 to 0
  8.     set the visible of sprite 61 to 0
  9.     set the visible of sprite 62 to 0
  10.     set the visible of sprite 63 to 0
  11.     set the visible of sprite 64 to 0
  12.     set the visible of sprite 65 to 0
  13.     set the visible of sprite 72 to 0
  14.     set the visible of sprite 73 to 0
  15.   end if
  16.   if the hilite of cast "floorprotection" = 0 then
  17.     if (the hilite of cast "asphalt" = 0) and (the hilite of cast "terrazzo" = 0) and (the hilite of cast "wood" = 0) and (the hilite of cast "tile" = 0) and (the hilite of cast "extremetemp" = 0) and (the hilite of cast "noisereduction" = 0) and (the hilite of cast "linoleum" = 0) and (the hilite of cast "cushionload" = 0) then
  18.       set the visible of sprite 54 to 1
  19.       set the visible of sprite 55 to 1
  20.     end if
  21.   end if
  22.   if the hilite of cast "floorprotection" = 0 then
  23.     if (the hilite of cast "asphalt" = 0) and (the hilite of cast "terrazzo" = 0) and (the hilite of cast "ribbedsteel" = 0) and (the hilite of cast "tile" = 0) and (the hilite of cast "metalchips" = 0) and (the hilite of cast "noisereduction" = 0) and (the hilite of cast "linoleum" = 0) and (the hilite of cast "cushionload" = 0) then
  24.       set the visible of sprite 52 to 1
  25.       set the visible of sprite 53 to 1
  26.     end if
  27.   end if
  28.   if the hilite of cast "floorprotection" = 0 then
  29.     if (the hilite of cast "carpet" = 0) and (the hilite of cast "brick" = 0) and (the hilite of cast "concrete" = 0) and (the hilite of cast "asphalt" = 0) and (the hilite of cast "terrazzo" = 0) and (the hilite of cast "wood" = 0) and (the hilite of cast "ribbedsteel" = 0) and (the hilite of cast "tile" = 0) and (the hilite of cast "water" = 0) and (the hilite of cast "steam" = 0) and (the hilite of cast "noisereduction" = 0) and (the hilite of cast "linoleum" = 0) and (the hilite of cast "cushionload" = 0) then
  30.       set the visible of sprite 60 to 1
  31.       set the visible of sprite 61 to 1
  32.       set the visible of sprite 62 to 1
  33.       set the visible of sprite 63 to 1
  34.       set the visible of sprite 64 to 1
  35.       set the visible of sprite 65 to 1
  36.     end if
  37.   end if
  38.   if the hilite of cast "floorprotection" = 0 then
  39.     if (the hilite of cast "asphalt" = 0) and (the hilite of cast "terrazzo" = 0) and (the hilite of cast "wood" = 0) and (the hilite of cast "tile" = 0) and (the hilite of cast "noisereduction" = 0) and (the hilite of cast "linoleum" = 0) and (the hilite of cast "cushionload" = 0) then
  40.       set the visible of sprite 72 to 1
  41.       set the visible of sprite 73 to 1
  42.     end if
  43.   end if
  44. end
  45.